Option Explicit
Sub E_Sample030()
    'ո E_Data03u@g
    Dim myRng As Range
    Dim myClm As Long
    Dim myRow As Long
    With Worksheets("E_Data03")				'Nu@g
        .Select
        With .Cells(1, 1).CurrentRegion
            myClm = .Columns.Count
            myRow = .Rows.Count
        End With
        .Columns(myClm + 1).Insert
        With .Cells(1, myClm + 1)
            .Value = 1
            .AutoFill Destination:=.Resize(myRow), Type:=xlFillSeries
        End With
        Set myRng = .Cells(1, 1).CurrentRegion	'Ƨǽd
        With myRng
            MsgBox "HWrӶiƧ"
            'wPƧǤk
            .Sort Key1:=.Cells(2, 2), Order1:=xlAscending, _
            Header:=xlYes				'HĤG欰ȨӶi@Ƨ
            MsgBox "^ƧǫeA"
            .Sort Key1:=.Cells(2, .Columns.Count), Order1:=xlAscending, _
            Header:=xlYes
        End With
        .Columns(myClm + 1).Delete			'@~檺R
    End With
    Set myRng = Nothing					'
End Sub
